home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8180 < prev    next >
Text File  |  1993-10-08  |  3KB  |  70 lines
  1. %%BeginFile: adobe_psp_errorhandler
  2. %%Copyright: Copyright 1985-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /currentpacking where
  4. {pop/oldpack currentpacking def/setpacking where
  5. {
  6. pop false setpacking
  7. }if
  8. }if
  9. /$brkpage 64 dict def $brkpage begin
  10. /prnt
  11. {dup type/stringtype ne{=string cvs}if dup length 6 mul/tx exch def/ty 10 def
  12. currentpoint/toy exch def/tox exch def 1 setgray newpath
  13. tox toy 2 sub moveto 0 ty rlineto tx 0 rlineto 0 ty neg rlineto
  14. closepath fill tox toy moveto 0 setgray show}bind def
  15. /nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def
  16. /=={/cp 0 def typeprint nl}def
  17. /typeprint{dup type exec}readonly def
  18. /lmargin 72 def
  19. /rmargin 72 def
  20. /tprint
  21. {dup length cp add rmargin gt{nl/cp 0 def}if
  22. dup length cp add/cp exch def prnt}readonly def
  23. /cvsprint{=string cvs tprint( )tprint}readonly def
  24. /integertype{cvsprint}readonly def
  25. /realtype{cvsprint}readonly def
  26. /booleantype{cvsprint}readonly def
  27. /operatortype{(--)tprint =string cvs tprint(-- )tprint}readonly def
  28. /marktype{pop(-mark- )tprint}readonly def
  29. /dicttype{pop(-dictionary- )tprint}readonly def
  30. /nulltype{pop(-null- )tprint}readonly def
  31. /filetype{pop(-filestream- )tprint}readonly def
  32. /savetype{pop(-savelevel- )tprint}readonly def
  33. /fonttype{pop(-fontid- )tprint}readonly def
  34. /nametype{dup xcheck not{(/)tprint}if cvsprint}readonly def
  35. /stringtype
  36. {dup rcheck{(\()tprint tprint(\))tprint}{pop(-string- )tprint}ifelse
  37. }readonly def
  38. /arraytype
  39. {dup rcheck{dup xcheck
  40. {({)tprint{typeprint}forall(})tprint}
  41. {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-array- )tprint}ifelse
  42. }readonly def
  43. /packedarraytype
  44. {dup rcheck{dup xcheck
  45. {({)tprint{typeprint}forall(})tprint}
  46. {([)tprint{typeprint}forall(])tprint}ifelse}{pop(-packedarray- )tprint}ifelse
  47. }readonly def
  48. /courier/Courier findfont 10 scalefont def
  49. end
  50. errordict/handleerror
  51. {systemdict begin $error begin $brkpage begin newerror
  52. {/newerror false store
  53. vmstatus pop pop 0 ne{grestoreall}if initgraphics courier setfont
  54. lmargin 720 moveto(ERROR: )prnt errorname prnt
  55. nl(OFFENDING COMMAND: )prnt/command load prnt
  56. $error/ostack known{
  57. $error/ostack get type dup/arraytype eq exch/packedarraytype eq or
  58. {nl nl(STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if}if
  59. systemdict/showpage get exec(%%[ Error: )print
  60. errorname =print(; OffendingCommand: )print/command
  61. load =print( ]%%)= flush}if end end end}
  62. dup 0 systemdict put dup 4 $brkpage put bind readonly put
  63. /currentpacking where
  64. {pop/setpacking where
  65. {
  66. pop oldpack setpacking
  67. }if
  68. }if
  69. %%EndFile
  70.